home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / pc / LOGIC Apple II 5.25" Library - DOS Part 2 / DOS031.dsk / ALPHABET PRINTER.bas next >
BASIC Source File  |  2012-02-16  |  8KB  |  183 lines
  1. 0  LIST 25900
  2. 1  FOR X = 1 TO 2000: NEXT X
  3. 5  REM  AT LINE #21007 ENTER HOW
  4. 6  REM  YOUR PRINTER IS ACTIVED<CTRL-J>
  5. 7  REM  AT LINE #6030 ENTER HOW
  6. 8  REM  YOUR PRINTER IS DE-
  7. 9  REM  ACTIVATED
  8. 10  HOME : VTAB 8: LIST 3,9: FOR I = 1 TO 10000: NEXT I
  9. 100  TEXT : HOME : VTAB 6
  10. 110  HTAB 11
  11. 120  INVERSE 
  12. 130  PRINT " ALPHABET PRINTER "
  13. 140  PRINT : PRINT : PRINT : NORMAL 
  14. 150  HTAB 2
  15. 160  PRINT " PROGRAMMED BY DAVID & PETER CUSIMANO"
  16. 165  PRINT : PRINT " DAVID - 14; PETER - 13"
  17. 170  PRINT : PRINT : PRINT : PRINT : HTAB 7: PRINT " ON THE APPLE II COMPUTER "
  18. 200  FOR I = 1 TO 5000: NEXT I
  19. 300  HOME : VTAB 2
  20. 310  PRINT " WELCOME TO THE 'ALPHABET PRINTER'": PRINT : PRINT 
  21. 320  PRINT "THIS PROGRAM WILL PRINT A CHAR. 7 LINES": PRINT : PRINT "TALL, BUT YOU CAN ONLY ENTER 6 LETTERS": PRINT : PRINT "IF YOU DO NOT HAVE A PRINTER"
  22. 350  PRINT : PRINT 
  23. 360  PRINT " WHEN THE COMPUTER ASKS 'WHAT LETERS',": PRINT 
  24. 370  PRINT "TYPE WHAT YOU WANT TO BE PRINTED": PRINT : PRINT "IS THERE A PRINTER CONNECTED TO YOUR": INPUT "APPLE (Y/N) ?";PRNTER$: PRINT 
  25. 375  IF  LEFT$(PRNTER$,1) = "Y"  THEN  PRINT "YOU CAN ENTER UP TO 13 LETTERS IF YOUR": PRINT "PRINTER IS SET TO 80 CHAR.S": PRINT 
  26. 377  PRINT : PRINT : PRINT "NOTE: YOU CAN NOT ENTER NUMBERS OR": PRINT "SYMBOLS SUCH AS  .,<>+;*:!#$%&": PRINT : PRINT "AFTER YOUR LETTERS HAVE BEEN PRINTED": PRINT "OUT THERE WILL BE A WAIT FOR YOU TO": PRINT "TURN OFF YOUR PRINTER": PRINT : PRINT 
  27. 380  PRINT "  HIT ANY KEY TO CONTINUE ";: GET A$
  28. 390  GET A$
  29. 400  GET A$
  30. 900  TEXT : HOME : VTAB 3
  31. 940  GOTO 1000
  32. 950  PRINT "ENTER LESS THAN 7 CHAR."
  33. 955  PRINT 
  34. 960  GOTO 1000
  35. 980  PRINT "ENTER LESS THAN 13 CHAR.": PRINT : GOTO 1000
  36. 1000  PRINT "WHAT LETTERS   ";
  37. 1010  INPUT L$
  38. 1015  PRINT : PRINT 
  39. 1020  IF  LEN(L$) >6  AND  LEFT$(PRNTER$,1) < >"Y"  THEN 950
  40. 1022  IF  LEN(L$) = 0  THEN 955
  41. 1023  IF  LEN(L$) >13  AND  LEFT$(PRNTER$,1) = "Y"  THEN 980
  42. 1024  GOSUB 20000
  43. 1025  FOR LINE = 1 TO 7
  44. 1030  FOR LTTER = 1 TO  LEN(L$)
  45. 1040 A$ =  MID$ (L$,LTTFR,1)
  46. 1050  IF A$ = "A"  THEN 1400
  47. 1060  IF A$ = "B"  THEN 1500
  48. 1070  IF A$ = "C"  THEN 1600
  49. 1080  IF A$ = "D"  THEN 1700
  50. 1090  IF A$ = "E"  THEN 1800
  51. 1100  IF A$ = "F"  THEN 1900
  52. 1110  IF A$ = "G"  THEN 2000
  53. 1120  IF A$ = "H"  THEN 2100
  54. 1130  IF A$ = "I"  THEN 2200
  55. 1140  IF A$ = "J"  THEN 2300
  56. 1150  IF A$ = "K"  THEN 2400
  57. 1160  IF A$ = "L"  THEN 2500
  58. 1170  IF A$ = "M"  THEN 2600
  59. 1180  IF A$ = "N"  THEN 2700
  60. 1190  IF A$ = "O"  THEN 2800
  61. 1200  IF A$ = "P"  THEN 2900
  62. 1210  IF A$ = "Q"  THEN 3000
  63. 1220  IF A$ = "R"  THEN 3100
  64. 1230  IF A$ = "S"  THEN 3200
  65. 1240  IF A$ = "T"  THEN 3300
  66. 1250  IF A$ = "U"  THEN 3400
  67. 1260  IF A$ = "V"  THEN 3500
  68. 1270  IF A$ = "W"  THEN 3600
  69. 1280  IF A$ = "X"  THEN 3700
  70. 1290  IF A$ = "Y"  THEN 3800
  71. 1300  IF A$ = "Z"  THEN 3900
  72. 1305  IF A$ = " "  THEN 4000
  73. 1310  GOTO 970
  74. 1399 LINE = 1
  75. 1400  ON LINE GOTO 1410,1420,1430,1430,1450,1430,1430: REM   1430=1440=1460=1470 
  76. 1405  STOP 
  77. 1410  PRINT "  *  ";: GOTO 5000
  78. 1420  PRINT " * * ";: GOTO 5000
  79. 1430  PRINT "*   *";: GOTO 5000
  80. 1450  PRINT "*****";: GOTO 5000
  81. 1500  ON LIN GOTO 1510,1430,1430,1510,1430,1430,1510
  82. 1510  PRINT "**** ";: GOTO 5000
  83. 1600  ON LINE GOTO 1610,1620,1630,1630,1630,1620,1610
  84. 1610  PRINT " *** ";: GOTO 5000
  85. 1620  PRINT "*   *";: GOTO 5000
  86. 1630  PRINT "*    ";: GOTO 5000
  87. 1700  ON LINE GOTO 1510,1430,1430,1430,1430,1430,1510
  88. 1800  ON LINE GOTO 1450,1630,1630,1510,1630,1630,1450
  89. 1900  ON LINE GOTO 1450,1630,1630,1510,1630,1630,1630
  90. 2000  ON LINE GOTO 2010,1630,1630,1630,2020,1620,2010
  91. 2010  PRINT " ****";: GOTO 5000
  92. 2020  PRINT "*  **";: GOTO 5000
  93. 2100  ON LINE GOTO 1430,1430,1430,1450,1430,1430,1430
  94. 2200  ON LINE GOTO 1610,1410,1410,1410,1410,1410,1610
  95. 2300  ON LINE GOTO 2310,2310,2310,2310,2310,1430,1610
  96. 2310  PRINT "    *";: GOTO 5000
  97. 2400  ON LINE GOTO 1430,2410,2420,2430,2420,2410,1430
  98. 2410  PRINT "*  * ";: GOTO 5000
  99. 2420  PRINT "* *  ";: GOTO 5000
  100. 2430  PRINT "**   ";: GOTO 5000
  101. 2500  ON LINE GOTO 1630,1630,1630,1630,1630,1630,1450
  102. 2600  ON LINE GOTO 1620,2610,2620,2620,1620,1620,1620
  103. 2610  PRINT "** **";: GOTO 5000
  104. 2620  PRINT "* * *";: GOTO 5000
  105. 2700  ON LINE GOTO 1620,1620,2710,2620,2020,1620,1620
  106. 2710  PRINT "**  *";: GOTO 5000
  107. 2800  ON LINE GOTO 1610,1430,1430,1430,1430,1430,1610
  108. 2900  ON LINE GOTO 1510,1620,1620,1510,1630,1630,1630
  109. 3000  ON LINE GOTO 1610,1620,1620,1620,2620,2410,3010
  110. 3010  PRINT " ** *";: GOTO 5000
  111. 3100  ON LINE GOTO 1510,1620,1620,1510,2420,2410,1620
  112. 3200  ON LINE GOTO 1610,1620,1630,1610,2310,1620,1610
  113. 3300  ON LINE GOTO 1450,1410,1410,1410,1410,1410,1410
  114. 3400  ON LINE GOTO 1430,1430,1430,1430,1430,1430,1610
  115. 3500  ON LINE GOTO 1430,1430,1430,1430,1430,3510,1410
  116. 3510  PRINT " * * ";: GOTO 5000
  117. 3600  ON LINE GOTO 1430,1430,1430,2620,2620,2610,1430
  118. 3700  ON LINE GOTO 1430,1430,3710,1410,3710,1430,1430
  119. 3710  PRINT " * * ";: GOTO 5000
  120. 3800  ON LINE GOTO 1430,1430,3710,1410,1410,1410,1410
  121. 3900  ON LINE GOTO 1450,2310,3910,1410,3920,1630,1450
  122. 3910  PRINT "   * ";: GOTO 5000
  123. 3920  PRINT " *   ";: GOTO 5000
  124. 4000  PRINT "     ";
  125. 5000  PRINT " ";: NEXT LTTER
  126. 5020  PRINT 
  127. 5050  NEXT LINE
  128. 6000  IF PRNTR$ = "Y"  THEN 6020
  129. 6010  GOTO 7000
  130. 6020  FOR I = 1 TO 3: PRINT  CHR$(7): NEXT I: FOR I = 1 TO 3: PRINT : NEXT I: FOR I = 1 TO 3000: NEXT I
  131. 6030  REM <CTRL-J><CTRL-J><CTRL-J><CTRL-J>TURN YOUR PRINTER OFF       HERE<CTRL-J><CTRL-J><CTRL-J><CTRL-J>
  132. 6040  GOTO 1000
  133. 7000  FOR I = 1 TO 6: PRINT : NEXT I: GOTO 1000
  134. 9999  END 
  135. 10000  REM  "^^*^^"1410
  136. 10005  REM  "^*^*^"1420
  137. 10010  REM  "*^^^*"1430
  138. 10015  REM  "*****"1450
  139. 10020  REM  "****^"1510
  140. 10025  REM  "^***^"1610
  141. 10030  REM  "*^^^*"1620 - 1430
  142. 10035  REM  "*^^^^"1630
  143. 10040  REM  "^****"2010
  144. 10045  REM  "*^^**"2020
  145. 10050  REM  "^^^^*"2310
  146. 10055  REM  "*^^*^"2410
  147. 10060  REM  "*^*^^"2420
  148. 10065  REM  "**^^^"2430 
  149. 10070  REM  "**^**"2610
  150. 10075  REM  "*^*^*"2620
  151. 10080  REM  "*^^**"2710
  152. 10085  REM  "^**^*"3010
  153. 10090  REM 
  154. 10100  REM  '^'=SPACE  
  155. 10110  REM  '*'=*
  156. 10120  REM  .."3010 =LINE #
  157. 20000  REM  CHECK CHAR.
  158. 20020  FOR I = 1 TO  LEN(L$)
  159. 20030  RESTORE 
  160. 20040 A$ =  MID$ (L$,I,1)
  161. 20050  DATA  "A","B","C","D","E","F","G","H","I","J","K","L","M","N","O","P","Q","R","S","T","U","V","W","X","Y","Z"," "
  162. 20055  FOR J = 1 TO 27
  163. 20060  READ I$
  164. 20070  IF I$ = A$  THEN 21000
  165. 20080  NEXT J
  166. 20330  POP : PRINT : PRINT : PRINT "  ";A$;" IS NOT A PRINTABLE CHARACTER": PRINT : PRINT : GOTO 1000
  167. 21000  NEXT I: IF PRNTR$ = "Y"  THEN  INVERSE : PRINT "<CTRL-G> T<CTRL-G>UR<CTRL-G>N <CTRL-G>YO<CTRL-G>UR<CTRL-G> P<CTRL-G>RI<CTRL-G>NT<CTRL-G>ER<CTRL-G> O<CTRL-G>N <CTRL-G>*<CTRL-G>*<CTRL-G>*<CTRL-G>*<CTRL-G>": NORMAL 
  168. 21005  IF PRNTR$ < >"Y"  THEN  FOR I = 1 TO 6: PRINT : NEXT I: RETURN 
  169. 21007  REM <CTRL-J><CTRL-J><CTRL-J><CTRL-J><CTRL-J>TURN YOUR PRINTER ON        HERE<CTRL-J><CTRL-J><CTRL-J><CTRL-J><CTRL-J>
  170. 21010  FOR I = 1 TO 3000: NEXT I: SPEED= 100: FOR I = 1 TO 6: PRINT  CHR$(10): NEXT I: SPEED= 255: RETURN 
  171. 25900  REM <CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H>           <CTRL-J><CTRL-J><CTRL-J><CTRL-J><CTRL-J><CTRL-J><CTRL-J><CTRL-J><CTRL-J><CTRL-J><CTRL-J><CTRL-J><CTRL-J><CTRL-J><CTRL-J><CTRL-J><CTRL-J><CTRL-J><CTRL-J><CTRL-J><CTRL-J><CTRL-J><CTRL-J><CTRL-J><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H>FROM:  APPLE-CAN<CTRL-J><CTRL-J><CTRL-J><CTRL-J><CTRL-J><CTRL-J><CTRL-J><CTRL-J><CTRL-J><CTRL-J>
  172. 63900  REM <CTRL-J><CTRL-J><CTRL-J><CTRL-J><CTRL-J><CTRL-J><CTRL-J><CTRL-J><CTRL-J><CTRL-J>
  173. 63920  REM  ALPHABET PRINTER<CTRL-J>
  174. 63930  REM  BY D. & P. CUSIMANO<CTRL-J><CTRL-J>
  175. 63940  REM  2480 BAYVIEW AVE.<CTRL-J>
  176. 63945  REM  WILLOWDALE, TORONTO,<CTRL-J>
  177. 63950  REM  ONTARIO, CANADA<CTRL-J>
  178. 63955  REM  M2L 1A7<CTRL-J>
  179. 63960  REM  TEL. 416-445-8156<CTRL-J>
  180. 63970  REM  DAVID - 14 YEARS OLD
  181. 63975  REM  PETER - 13 YEARS OLD
  182. 63980  REM DECEMBER 19, 1979
  183. 63985  REM  MERRY CHRISTMAS,<CTRL-J>         HO HO HO